home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / deepx1_1.lha / DeepXInstall < prev    next >
Text File  |  1996-03-14  |  2KB  |  91 lines
  1. ; $VER: DeepXInstall 1.1 (14.03.96)
  2.  
  3. (if (= @language "english")
  4. (    (set #drawer "Select a drawer where to copy DeepX")
  5.     (set #copy "Copying DeepX")
  6.     (set #copyicon "Copying DeepX icons")
  7.     (set #copycat "Copying DeepX catalogs")
  8.     (set #icon "Select icons type")
  9.     (set #col4 "4-color icons (Normal)")
  10.     (set #col8 "8-color icons (MagicWB)")
  11. ))
  12.  
  13. (if (= @language "polski")
  14. (    (set #drawer "Wybierz szufladë, do której skopiowaê DeepXa")
  15.     (set #copy "Kopiujë DeepXa")
  16.     (set #copyicon "Kopiujë ikony DeepXa")
  17.     (set #copycat "Kopiujë katalogi DeepXa")
  18.     (set #icon "Wybierz rodzaj ikon")
  19.     (set #col4 "4-kolorowe ikony (Normalne)")
  20.     (set #col8 "8-kolorowe ikony (MagicWB)")
  21. ))
  22.  
  23.  
  24. (set src (expandpath (pathonly @icon)))
  25.  
  26. (complete 0)
  27. (set @default-dest
  28.     (askdir
  29.         (prompt #drawer)
  30.         (help @askdir-help)
  31.         (default @default-dest)
  32.     )
  33. )
  34.  
  35. (set man "DeepX.guide")
  36. (if (= @language "polski") (set man "DeepX.PL.guide"))
  37. (copyfiles
  38.     (prompt #copy)
  39.     (help @copyfiles-help)
  40.     (source src)
  41.     (dest @default-dest)
  42.     (choices "DeepX" "DeepXPrefs" man)
  43. )
  44.  
  45. (complete 50)
  46. (set icons
  47.     (askchoice
  48.         (prompt #icon)
  49.         (help @askchoice-help)
  50.         (choices #col4 #col8)
  51.     )
  52. )
  53.  
  54. (if icons
  55.     (copyfiles
  56.         (prompt #copyicon)
  57.         (help @copyfiles-help)
  58.         (source src)
  59.         (dest @default-dest)
  60.         (choices "DeepX.info" "DeepXPrefs.info")
  61.     )
  62.  
  63.     ((copyfiles
  64.         (prompt #copyicon)
  65.         (help @copyfiles-help)
  66.         (source (tackon src "DeepX.info.4"))
  67.         (dest @default-dest)
  68.         (newname "DeepX.info")
  69.     )
  70.     (copyfiles
  71.         (prompt #copyicon)
  72.         (help @copyfiles-help)
  73.         (source (tackon src "DeepXPrefs.info.4"))
  74.         (dest @default-dest)
  75.         (newname "DeepXPrefs.info")
  76.     ))
  77. )
  78.  
  79. (complete 90)
  80. (if (NOT (= @language "english"))
  81.     (copyfiles
  82.         (prompt #copycat)
  83.         (help @copyfiles-help)
  84.         (source (tackon src @language))
  85.         (dest (tackon "LOCALE:Catalogs" @language))
  86.         (choices "DeepX.catalog" "DeepXPrefs.catalog")
  87.     )
  88. )
  89.  
  90. (complete 100)
  91.